home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / PROM-AID4.2.SDA / RUN ME FIRST (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  582 b   |  21 lines
  1. 5 FORA=1TO255:A$=A$+"[255]":NEXT
  2. 10 GOSUB500 :SZ=2:A=0
  3. 20 OPEN8,8,8,"@0:BLANK"+STR$(SZ)+"K,P,W"
  4. 22 PRINT#8,CHR$(0);CHR$(32);
  5. 25 PRINT"WORKING ON- [159]BLANK"+STR$(SZ)+"K[158]"
  6. 30 A=A+1:PRINTA;:IFA>(SZ*1024)/256THEN100
  7. 40 PRINT#8,A$;:IFA/4<SZTHENPRINT#8,"[255]";
  8. 45 GOTO30
  9. 100 CLOSE8:PRINT:A=0:SZ=SZ*2:IFSZ=32THEN200
  10. 110 GOTO20
  11. 200 PRINT"...ALL DONE":END
  12. 500 PRINT"[147]":POKE53281,0:POKE53280,0
  13. 505 PRINT"      >>> BLANK FILE CREATER <<<<"
  14. 510 PRINT"[156]...THIS PROGRAM WILL CREATE THE BLANK      FILES";
  15. 520 PRINT" THAT ARE NEEDED FOR THE ERASE     AND ";
  16. 530 PRINT"VERIFY FUNCTIONS"
  17. 540 PRINT"[158]   ...INSERT PROGRAM DISK HIT KEY..."
  18. 550 GETW$:IFW$=""THEN550
  19. 560 RETURN
  20. 1000 SAVE"@0:TERD
  21.